home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Ahoy 1987 June
/
Ahoy_Magazine_87-06_1987_Double_L.d64
/
128 multi ram
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
2KB
|
42 lines
10 rem *** 128 multi ram *** buck childress ***
20 rem *** p.o. box 13575 salem, or 97309 ***
30 printchr$(147)"loading and checking data line:":j=3072
40 forb=0to11:reada
50 ifb=0thenl=peek(66)*256+peek(65):printchr$(19)tab(31)l:print
60 ifa<0ora>255then80
70 pokej+b,a:x=x+a:nextb:reada:ifa=xthen90
80 print"error in data line:"l:end
90 x=0:j=j+12:d=d+1:ifd<31then40
100 print"the data is ok.":print:sys3072:print"128 multi ram is active.":new
110 data169,33,162,12,141,58,3,142,59,3,173,93,1048
120 data13,208,17,162,10,142,93,13,157,0,19,157,991
130 data0,104,157,0,180,202,16,244,96,165,127,208,1499
140 data51,165,211,201,4,208,45,165,212,205,95,13,1575
150 data240,38,141,95,13,205,96,13,240,30,141,96,1348
160 data13,201,1,208,11,141,95,13,169,4,141,94,1091
170 data13,76,58,12,201,3,144,8,201,7,144,7,874
180 data201,60,240,89,76,225,197,174,98,13,141,98,1612
190 data13,173,16,18,157,100,13,173,17,18,157,104,959
200 data13,174,96,13,189,96,13,133,46,189,100,13,1075
210 data141,16,18,189,104,13,141,17,18,173,94,13,937
220 data201,4,240,9,169,0,141,94,13,189,108,13,1181
230 data44,169,255,133,54,133,58,141,19,18,169,0,1193
240 data170,133,45,129,45,133,53,133,57,141,18,18,1075
250 data232,134,45,173,96,13,141,97,13,169,160,162,1435
260 data39,157,0,4,202,16,250,162,3,181,243,157,1414
270 data117,13,169,0,149,243,202,16,244,232,142,0,1527
280 data255,166,235,164,236,142,115,13,140,116,13,32,1627
290 data125,255,19,18,32,82,65,77,32,61,32,0,798
300 data173,94,13,240,18,169,128,141,94,13,32,125,1240
310 data255,78,79,82,77,65,76,0,76,19,13,173,993
320 data97,13,201,4,176,11,32,125,255,70,82,69,1135
330 data69,0,76,19,13,24,105,45,32,210,255,32,880
340 data125,255,32,42,42,42,32,66,89,84,69,83,961
350 data32,70,82,69,69,32,61,32,0,173,18,18,656
360 data56,237,16,18,8,170,172,19,18,40,176,2,932
370 data136,56,152,237,17,18,32,50,142,169,146,32,1187
380 data210,255,174,115,13,172,116,13,24,32,240,255,1619
390 data162,3,189,117,13,149,243,202,16,248,76,225,1643
400 data197,0,128,128,255,4,4,19,28,104,180,3,1050
410 data3,3,3,19,28,104,180,28,104,180,255,0,907